/ Compute! Gazette 1988 November / 1988-11.d64 / 128 custom boot

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 01 1c 48 1c 0a 00 8f 20 | 43 4f 50 59 52 49 47 48 |..H.... |COPYRIGH|
|00000010| 54 20 31 39 38 38 20 43 | 4f 4d 50 55 54 45 21 20 |T 1988 C|OMPUTE! |
|00000020| 50 55 42 4c 49 43 41 54 | 49 4f 4e 53 2c 20 49 4e |PUBLICAT|IONS, IN|
|00000030| 43 2e 20 2d 20 41 4c 4c | 20 52 49 47 48 54 53 20 |C. - ALL| RIGHTS |
|00000040| 52 45 53 45 52 56 45 44 | 00 7d 1c 14 00 81 49 b2 |RESERVED|.}....I.|
|00000050| 30 a4 33 30 3a 87 41 3a | 58 b2 58 aa 41 3a 82 3a |0.30:.A:|X.X.A:.:|
|00000060| 8b 58 b3 b1 31 37 37 35 | a7 99 22 44 41 54 41 20 |.X..1775|.."DATA |
|00000070| 45 52 52 4f 52 2e 22 3a | 90 3a d5 3a 8c 00 da 1c |ERROR.":|.:.:....|
|00000080| 1e 00 83 36 37 2c 36 36 | 2c 37 37 2c 30 2c 30 2c |...67,66|,77,0,0,|
|00000090| 30 2c 30 2c 37 30 2c 37 | 33 2c 37 36 2c 36 39 2c |0,0,70,7|3,76,69,|
|000000a0| 30 2c 30 2c 31 36 32 2c | 31 39 2c 31 36 30 2c 31 |0,0,162,|19,160,1|
|000000b0| 31 2c 37 36 2c 31 36 35 | 2c 31 37 35 2c 38 32 2c |1,76,165|,175,82,|
|000000c0| 38 35 2c 37 38 2c 33 34 | 2c 34 36 2c 36 36 2c 38 |85,78,34|,46,66,8|
|000000d0| 34 2c 33 34 2c 30 2c 30 | 2c 30 00 1e 1d 28 00 97 |4,34,0,0|,0...(..|
|000000e0| 35 33 32 38 30 2c 30 3a | 97 35 33 32 38 31 2c 30 |53280,0:|.53281,0|
|000000f0| 3a 42 24 b2 22 12 20 20 | 20 20 20 20 20 20 20 20 |:B$.".  |        |
|00000100| 20 20 20 20 20 20 20 20 | 20 20 22 3a 43 24 b2 c7 |        |  ":C$..|
|00000110| 28 33 34 29 3a 41 24 28 | 34 29 b2 22 31 22 00 4f |(34):A$(|4)."1".O|
|00000120| 1d 32 00 99 22 93 20 12 | 98 20 20 20 20 20 20 20 |.2..". .|.       |
|00000130| 20 20 20 31 32 38 20 43 | 55 53 54 4f 4d 20 42 4f |   128 C|USTOM BO|
|00000140| 4f 54 20 20 20 20 20 20 | 20 20 20 20 20 20 22 00 |OT      |      ".|
|00000150| 98 1d 3c 00 99 a3 33 29 | 22 11 43 4f 50 59 52 49 |..<...3)|".COPYRI|
|00000160| 47 48 54 20 31 39 38 38 | 20 43 4f 4d 50 55 54 45 |GHT 1988| COMPUTE|
|00000170| 21 20 50 55 42 2e 2c 20 | 49 4e 43 2e 22 3a 99 a3 |! PUB., |INC.":..|
|00000180| 31 31 29 22 41 4c 4c 20 | 52 49 47 48 54 53 20 52 |11)"ALL |RIGHTS R|
|00000190| 45 53 45 52 56 45 44 22 | 00 e4 1d 46 00 85 22 11 |ESERVED"|...F..".|
|000001a0| 11 9a 12 20 53 45 4c 45 | 43 54 20 23 20 4f 46 20 |... SELE|CT # OF |
|000001b0| 43 4f 4c 20 28 34 30 20 | 4f 52 20 38 30 29 20 92 |COL (40 |OR 80) .|
|000001c0| 05 22 3b 41 24 28 32 29 | 3a 8b 41 24 28 32 29 b3 |.";A$(2)|:.A$(2).|
|000001d0| b1 22 34 30 22 af 41 24 | 28 32 29 b3 b1 22 38 30 |."40".A$|(2).."80|
|000001e0| 22 a7 37 30 00 25 1e 50 | 00 85 22 11 11 9a 12 20 |".70.%.P|..".... |
|000001f0| 44 45 46 49 4e 45 20 46 | 55 4e 43 54 49 4f 4e 20 |DEFINE F|UNCTION |
|00000200| 4b 45 59 53 3f 20 28 59 | 2f 4e 29 20 92 05 22 3b |KEYS? (Y|/N) ..";|
|00000210| 41 24 28 31 29 3a 8b 41 | 24 28 31 29 b3 b1 22 59 |A$(1):.A|$(1).."Y|
|00000220| 22 a7 31 32 30 00 6c 1e | 5a 00 46 24 b2 22 22 3a |".120.l.|Z.F$."":|
|00000230| 85 22 11 11 9a 12 20 53 | 45 4c 45 43 54 20 46 2d |.".... S|ELECT F-|
|00000240| 4b 45 59 20 54 4f 20 44 | 45 46 49 4e 45 20 28 31 |KEY TO D|EFINE (1|
|00000250| 2d 38 29 92 05 22 3b 46 | 24 3a 46 b2 c5 28 46 24 |-8)..";F|$:F..(F$|
|00000260| 29 3a 8b 46 24 b2 22 22 | a7 31 32 30 00 81 1e 64 |):.F$.""|.120...d|
|00000270| 00 8d 35 30 30 3a 99 3a | 8b 41 24 b2 22 22 a7 39 |..500:.:|.A$."".9|
|00000280| 30 00 92 1e 6e 00 46 24 | 28 46 29 b2 41 24 3a 89 |0...n.F$|(F).A$:.|
|00000290| 39 30 00 e5 1e 78 00 8d | 35 35 30 3a 85 22 11 12 |90...x..|550:."..|
|000002a0| 9a 20 53 45 4c 45 43 54 | 20 42 41 43 4b 47 52 4f |. SELECT| BACKGRO|
|000002b0| 55 4e 44 20 43 4f 4c 4f | 52 20 28 31 2d 31 36 29 |UND COLO|R (1-16)|
|000002c0| 20 92 22 3b 41 24 28 33 | 29 3a 8b c5 28 41 24 28 | .";A$(3|):..(A$(|
|000002d0| 33 29 29 b3 31 b0 c5 28 | 41 24 28 33 29 29 b1 31 |3)).1..(|A$(3)).1|
|000002e0| 36 a7 31 32 30 00 41 1f | 82 00 8b 41 24 28 32 29 |6.120.A.|...A$(2)|
|000002f0| b3 b1 22 38 30 22 a7 8d | 35 35 30 3a 85 22 11 12 |.."80"..|550:."..|
|00000300| 9a 20 53 45 4c 45 43 54 | 20 42 4f 52 44 45 52 20 |. SELECT| BORDER |
|00000310| 43 4f 4c 4f 52 20 28 31 | 2d 31 36 29 20 92 22 3b |COLOR (1|-16) .";|
|00000320| 41 24 28 34 29 3a 8b c5 | 28 41 24 28 34 29 29 b3 |A$(4):..|(A$(4)).|
|00000330| 31 b0 c5 28 41 24 28 34 | 29 29 b1 31 36 a7 31 33 |1..(A$(4|)).16.13|
|00000340| 30 00 93 1f 8c 00 8d 35 | 35 30 3a 85 22 11 12 9a |0......5|50:."...|
|00000350| 20 53 45 4c 45 43 54 20 | 43 48 41 52 41 43 54 45 | SELECT |CHARACTE|
|00000360| 52 20 43 4f 4c 4f 52 20 | 28 31 2d 31 36 29 20 92 |R COLOR |(1-16) .|
|00000370| 22 3b 41 24 28 35 29 3a | 8b c5 28 41 24 28 35 29 |";A$(5):|..(A$(5)|
|00000380| 29 b3 31 b0 c5 28 41 24 | 28 35 29 29 b1 31 36 a7 |).1..(A$|(5)).16.|
|00000390| 31 34 30 00 d7 1f 96 00 | 85 22 93 11 11 12 9a 20 |140.....|."..... |
|000003a0| 53 45 4c 45 43 54 20 43 | 4f 4d 4d 41 4e 44 20 28 |SELECT C|OMMAND (|
|000003b0| 52 55 4e 2f 4c 4f 41 44 | 2f 4e 45 57 29 92 05 22 |RUN/LOAD|/NEW).."|
|000003c0| 3b 41 24 28 36 29 3a 8b | 41 24 28 36 29 b2 22 52 |;A$(6):.|A$(6)."R|
|000003d0| 55 4e 22 a7 32 30 30 00 | ed 1f a0 00 8b 41 24 28 |UN".200.|.....A$(|
|000003e0| 36 29 b2 22 4c 4f 41 44 | 22 a7 31 39 30 00 02 20 |6)."LOAD|".190.. |
|000003f0| aa 00 8b 41 24 28 36 29 | b2 22 4e 45 57 22 a7 32 |...A$(6)|."NEW".2|
|00000400| 31 30 00 0b 20 b4 00 89 | 31 35 30 00 5d 20 be 00 |10.. ...|150.] ..|
|00000410| 85 22 93 11 11 12 9a 20 | 45 58 54 45 4e 53 49 4f |."..... |EXTENSIO|
|00000420| 4e 20 28 30 20 46 4f 52 | 2c 38 20 4f 52 20 31 20 |N (0 FOR|,8 OR 1 |
|00000430| 46 4f 52 20 2c 38 2c 31 | 29 92 05 22 3b 41 24 28 |FOR ,8,1|)..";A$(|
|00000440| 37 29 3a 8b c5 28 41 24 | 28 37 29 29 b3 30 b0 c5 |7):..(A$|(7)).0..|
|00000450| 28 41 24 28 37 29 29 b1 | 31 a7 31 39 30 00 89 20 |(A$(7)).|1.190.. |
|00000460| c8 00 85 22 93 11 11 12 | 9a 20 45 4e 54 45 52 20 |..."....|. ENTER |
|00000470| 46 49 4c 45 20 4e 41 4d | 45 20 54 4f 20 42 4f 4f |FILE NAM|E TO BOO|
|00000480| 54 20 22 3b 41 24 28 38 | 29 00 d8 20 d2 00 99 22 |T ";A$(8|).. ..."|
|00000490| 93 11 11 11 11 11 05 20 | 49 4e 53 45 52 54 20 44 |....... |INSERT D|
|000004a0| 49 53 4b 20 41 4e 44 20 | 50 52 45 53 53 20 12 52 |ISK AND |PRESS .R|
|000004b0| 45 54 55 52 4e 92 20 54 | 4f 20 57 52 49 54 45 20 |ETURN. T|O WRITE |
|000004c0| 22 3a a1 f9 4b 24 3a 99 | 22 93 11 11 05 57 52 49 |":..K$:.|"....WRI|
|000004d0| 54 49 4e 47 2e 2e 2e 22 | 00 0f 21 dc 00 9f 31 35 |TING..."|..!...15|
|000004e0| 2c 38 2c 31 35 2c 22 53 | 30 3a 2e 46 4b 22 3a 98 |,8,15,"S|0:.FK":.|
|000004f0| 31 35 2c 22 53 30 3a 2e | 42 54 22 3a a0 31 35 3a |15,"S0:.|BT":.15:|
|00000500| 8b 41 24 28 31 29 b3 b1 | 22 59 22 a7 32 37 30 00 |.A$(1)..|"Y".270.|
|00000510| 36 21 e6 00 a0 32 3a 9f | 32 2c 38 2c 32 2c 22 30 |6!...2:.|2,8,2,"0|
|00000520| 3a 2e 46 4b 2c 53 2c 57 | 22 3a a0 31 35 3a 9f 31 |:.FK,S,W|":.15:.1|
|00000530| 35 2c 38 2c 31 35 00 57 | 21 f0 00 81 4e b2 31 a4 |5,8,15.W|!...N.1.|
|00000540| 38 3a 8b 46 24 28 4e 29 | b2 22 22 a7 46 24 28 4e |8:.F$(N)|."".F$(N|
|00000550| 29 b2 c7 28 33 34 29 00 | 66 21 fa 00 98 32 2c 46 |)..(34).|f!...2,F|
|00000560| 24 28 4e 29 3a 82 00 8a | 21 04 01 84 31 35 2c 45 |$(N):...|!...15,E|
|00000570| 24 28 31 29 2c 45 24 28 | 32 29 2c 45 24 28 33 29 |$(1),E$(|2),E$(3)|
|00000580| 2c 45 24 28 34 29 3a a0 | 31 35 00 1d 22 0e 01 99 |,E$(4):.|15.."...|
|00000590| 22 93 11 11 11 35 20 43 | 24 3d 43 48 52 24 28 33 |"....5 C|$=CHR$(3|
|000005a0| 34 29 3a 43 4f 24 3d 22 | 3b 43 24 3b 41 24 28 32 |4):CO$="|;C$;A$(2|
|000005b0| 29 3b 43 24 3b 22 3a 49 | 46 28 50 45 45 4b 28 32 |);C$;":I|F(PEEK(2|
|000005c0| 31 35 29 3d 30 41 4e 44 | 43 4f 24 3d 22 3b 43 24 |15)=0AND|CO$=";C$|
|000005d0| 3b 22 38 30 22 3b 43 24 | 3b 22 29 4f 52 28 50 45 |;"80";C$|;")OR(PE|
|000005e0| 45 4b 28 32 31 35 29 3c | 3e 30 41 4e 44 43 4f 24 |EK(215)<|>0ANDCO$|
|000005f0| 3d 22 3b 43 24 3b 22 34 | 30 22 3b 43 24 3b 22 29 |=";C$;"4|0";C$;")|
|00000600| 54 48 45 4e 50 52 49 4e | 54 43 48 52 24 28 32 37 |THENPRIN|TCHR$(27|
|00000610| 29 3b 22 3b 43 24 3b 22 | 58 22 3b 43 24 00 7e 22 |);";C$;"|X";C$.~"|
|00000620| 18 01 99 22 37 20 42 4b | 3d 22 3b c5 28 41 24 28 |..."7 BK|=";.(A$(|
|00000630| 33 29 29 3b 22 3a 42 44 | 3d 22 3b c5 28 41 24 28 |3));":BD|=";.(A$(|
|00000640| 34 29 29 3b 22 3a 43 48 | 3d 22 3b c5 28 41 24 28 |4));":CH|=";.(A$(|
|00000650| 35 29 29 3b 22 3a 43 4f | 4c 4f 52 30 2c 42 4b 3a |5));":CO|LOR0,BK:|
|00000660| 43 4f 4c 4f 52 36 2c 42 | 4b 3a 43 4f 4c 4f 52 34 |COLOR6,B|K:COLOR4|
|00000670| 2c 42 44 3a 43 4f 4c 4f | 52 35 2c 43 48 22 00 92 |,BD:COLO|R5,CH"..|
|00000680| 22 22 01 8b 41 24 28 31 | 29 b3 b1 22 59 22 a7 33 |""..A$(1|).."Y".3|
|00000690| 33 30 00 eb 22 2c 01 99 | 22 31 30 20 43 4c 4f 53 |30..",..|"10 CLOS|
|000006a0| 45 32 3a 4f 50 45 4e 32 | 2c 38 2c 32 2c 22 3b 43 |E2:OPEN2|,8,2,";C|
|000006b0| 24 3b 22 30 3a 2e 46 4b | 2c 53 2c 52 22 3b 43 24 |$;"0:.FK|,S,R";C$|
|000006c0| 3b 22 3a 46 4f 52 4e 3d | 31 54 4f 38 3a 49 4e 50 |;":FORN=|1TO8:INP|
|000006d0| 55 54 23 32 2c 46 24 28 | 4e 29 3a 4e 45 58 54 3a |UT#2,F$(|N):NEXT:|
|000006e0| 43 4c 4f 53 45 32 3a 4e | 3d 30 22 00 01 23 36 01 |CLOSE2:N|=0"..#6.|
|000006f0| 99 22 33 30 20 49 46 4e | 3d 3e 38 54 48 45 4e 34 |."30 IFN|=>8THEN4|
|00000700| 30 00 81 23 40 01 99 22 | 33 32 20 4e 3d 4e 2b 31 |0..#@.."|32 N=N+1|
|00000710| 3a 50 52 49 4e 54 22 3b | 43 24 3b 22 93 11 11 11 |:PRINT";|C$;"....|
|00000720| 4b 45 59 22 3b 43 24 3b | 22 3b 4e 3b 22 3b 43 24 |KEY";C$;|";N;";C$|
|00000730| 3b 22 2c 22 3b 43 24 3b | 22 3b 43 24 3b 46 24 28 |;",";C$;|";C$;F$(|
|00000740| 4e 29 3a 50 52 49 4e 54 | 22 3b 43 24 3b 22 11 11 |N):PRINT|";C$;"..|
|00000750| 47 4f 54 4f 33 30 13 22 | 3b 43 24 3b 22 3a 50 4f |GOTO30."|;C$;":PO|
|00000760| 4b 45 38 34 32 2c 31 33 | 3a 50 4f 4b 45 38 34 33 |KE842,13|:POKE843|
|00000770| 2c 31 33 3a 50 4f 4b 45 | 32 30 38 2c 32 3a 45 4e |,13:POKE|208,2:EN|
|00000780| 44 00 a1 23 4a 01 8b 41 | 24 28 36 29 b2 22 4e 45 |D..#J..A|$(6)."NE|
|00000790| 57 22 a7 99 22 34 30 20 | 4e 45 57 22 3a 89 33 39 |W".."40 |NEW":.39|
|000007a0| 30 00 c2 23 54 01 99 22 | 34 30 20 50 52 49 4e 54 |0..#T.."|40 PRINT|
|000007b0| 22 3b 43 24 3b 22 93 11 | 11 11 22 3b 41 24 28 36 |";C$;"..|..";A$(6|
|000007c0| 29 3b 00 03 24 5e 01 99 | 43 24 3b 22 3b 43 24 3b |);..$^..|C$;";C$;|
|000007d0| 22 3b 43 24 3b 41 24 28 | 38 29 3b 43 24 3b 22 3b |";C$;A$(|8);C$;";|
|000007e0| 43 24 3b 22 3b 3a 8b 41 | 24 28 37 29 b2 22 31 22 |C$;";:.A|$(7)."1"|
|000007f0| a7 99 43 24 3b 22 2c 38 | 2c 31 22 3b 43 24 3a 89 |..C$;",8|,1";C$:.|
|00000800| 33 38 30 00 28 24 68 01 | 8b 41 24 28 36 29 b3 b1 |380.($h.|.A$(6)..|
|00000810| 22 52 55 4e 22 a7 99 43 | 24 3b 22 2c 38 13 22 3b |"RUN"..C|$;",8.";|
|00000820| 43 24 3b 3a 89 33 38 30 | 00 4c 24 72 01 99 3a 99 |C$;:.380|.L$r..:.|
|00000830| 22 35 30 20 50 52 49 4e | 54 22 3b 43 24 3b 22 11 |"50 PRIN|T";C$;".|
|00000840| 11 11 11 52 55 4e 13 22 | 3b 43 24 3b 00 78 24 7c |...RUN."|;C$;.x$||
|00000850| 01 99 22 3a 50 4f 4b 45 | 38 34 32 2c 31 33 3a 50 |..":POKE|842,13:P|
|00000860| 4f 4b 45 38 34 33 2c 31 | 33 3a 50 4f 4b 45 32 30 |OKE843,1|3:POKE20|
|00000870| 38 2c 32 3a 4e 45 57 22 | 00 95 24 86 01 99 22 53 |8,2:NEW"|..$..."S|
|00000880| 41 56 45 22 3b 43 24 3b | 22 2e 42 54 22 3b 43 24 |AVE";C$;|".BT";C$|
|00000890| 3b 22 2c 38 22 00 ba 24 | 90 01 57 53 24 b2 22 22 |;",8"..$|..WS$.""|
|000008a0| 3a 81 4e b2 31 a4 33 30 | 3a 87 58 3a 57 53 24 b2 |:.N.1.30|:.X:WS$.|
|000008b0| 57 53 24 aa c7 28 58 29 | 3a 82 00 d2 24 9a 01 9f |WS$..(X)|:...$...|
|000008c0| 31 35 2c 38 2c 31 35 3a | 9f 35 2c 38 2c 35 2c 22 |15,8,15:|.5,8,5,"|
|000008d0| 23 22 00 e4 24 a4 01 98 | 31 35 2c 22 42 2d 50 22 |#"..$...|15,"B-P"|
|000008e0| 3b 35 3b 30 00 ef 24 ae | 01 98 35 2c 57 53 24 00 |;5;0..$.|..5,WS$.|
|000008f0| 04 25 b8 01 98 31 35 2c | 22 55 32 22 3b 35 3b 30 |.%...15,|"U2";5;0|
|00000900| 3b 31 3b 30 00 24 25 c2 | 01 84 31 35 2c 45 24 28 |;1;0.$%.|..15,E$(|
|00000910| 31 29 2c 45 24 28 32 29 | 2c 45 24 28 33 29 2c 45 |1),E$(2)|,E$(3),E|
|00000920| 24 28 34 29 00 2f 25 cc | 01 a0 35 3a a0 31 35 00 |$(4)./%.|..5:.15.|
|00000930| 55 25 d6 01 99 22 13 22 | 3a 81 4e b2 38 34 32 a4 |U%..."."|:.N.842.|
|00000940| 38 35 30 3a 97 4e 2c 31 | 33 3a 82 3a 97 32 30 38 |850:.N,1|3:.:.208|
|00000950| 2c 31 30 3a a2 00 71 25 | e0 01 99 22 93 11 11 22 |,10:..q%|..."..."|
|00000960| 3a 81 4e b2 31 a4 34 3a | 99 45 24 28 4e 29 3b 3a |:.N.1.4:|.E$(N);:|
|00000970| 82 00 77 25 ea 01 80 00 | 89 25 f4 01 41 24 b2 22 |..w%....|.%..A$."|
|00000980| 22 3a 99 c7 28 33 34 29 | 3b 00 9c 25 fe 01 a1 4b |":..(34)|;..%...K|
|00000990| 24 3a 8b 4b 24 b2 22 22 | a7 35 31 30 00 c7 25 08 |$:.K$.""|.510..%.|
|000009a0| 02 8b 4b 24 b2 c7 28 32 | 30 29 a7 41 24 b2 c8 28 |..K$..(2|0).A$..(|
|000009b0| 41 24 2c 28 c3 28 41 24 | 29 ab 31 29 29 3a 99 4b |A$,(.(A$|).1)):.K|
|000009c0| 24 3b 3a 89 35 31 30 00 | d7 25 12 02 8b 4b 24 b2 |$;:.510.|.%...K$.|
|000009d0| c7 28 31 33 29 a7 8e 00 | ee 25 1c 02 41 24 b2 41 |.(13)...|.%..A$.A|
|000009e0| 24 aa 4b 24 3a 99 4b 24 | 3b 3a 89 35 31 30 00 27 |$.K$:.K$|;:.510.'|
|000009f0| 26 26 02 99 22 93 20 12 | 9b 43 4f 4c 4f 52 20 53 |&&..". .|.COLOR S|
|00000a00| 45 4c 45 43 54 49 4f 4e | 11 11 22 3a 81 4e b2 32 |ELECTION|..":.N.2|
|00000a10| a4 31 36 3a e7 35 2c 4e | 3a 99 4e 3b 22 2e 2e 22 |.16:.5,N|:.N;".."|
|00000a20| 3b 42 24 3a 82 3a 8e 00 | 00 00                   |;B$:.:..|..      |
+--------+-------------------------+-------------------------+--------+--------+